1 CLOSE8:CLOSE4:OPEN8,8,8,"0:DISK LIST 2 DOCS,S,R":OPEN4,4,7:A$="":L=0:PRINT#4
2 GET#8,B$:A$=A$+B$:ON-(B$<>CHR$(13))GOTO2:IFSTTHENCLOSE8:PRINT#4:CLOSE4:END
3 PRINT#4,"      ";A$;:L=L+1:A$="":ON-(L<56)GOTO2:FORL=1TO10:PRINT#4:NEXTL:L=0:GOTO2